home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / punk.lzs / PUNKAE.MF < prev    next >
Text File  |  1991-04-21  |  836b  |  24 lines
  1. % special punk letter combinations
  2.  
  3. beginpunkchar(oct"035",16,1,2);  % \AE
  4. z1=pp(1.5u,0); z2=pp(.6w,h); z3=pp(w-1.5u,h);
  5. pd z1; pd z3; draw z1--z2--z3;  % left diagonal and upper arm
  6. z4=pp .3[z1,z2]; z5=pp(.6w,0); z6=pp(w-2u,.3h);
  7. pd z4; pd z6; draw z4--z6; % crossbar
  8. z7=pp(w-u,0); pd z2; pd z7; draw z2--z5--z7; % stem and lower arm
  9. endchar;
  10.  
  11. beginpunkchar(oct"036",18,1,2); % \OE
  12. z1=pp(.5w,h); z2=pp(u,.4h); z3=pp(.5w,0);
  13. pd z1; draw z1..z2..{right}z3; % bowl
  14. z4=pp(w-1.5u,h); z5=pp(w-2u,.4h); z6=pp(w-u,0);
  15. pd z4; pd z6; draw z4--z1--z3--z6; % arms and stem
  16. pd z5; draw z5--.4[z3,z1];  % crossbar
  17. endchar;
  18.  
  19. beginpunkchar(oct"037",14,1,1); % \O
  20. z1=pp(.5w,h); z2=pp(u,.5h); z3=pp(.5w,0); z4=pp(w-u,.5h);
  21. z5=pp(w-2u,1.1h); z6=pp(2u,-.1h);
  22. pd z1; pd z6; draw z1..z2..z3..z4..z5--z6;  % bowl and diagonal
  23. endchar;
  24.